home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1998 July / EnigmA AMIGA RUN 29 (1998)(G.R. Edizioni)(IT)[!][issue 1998-07 & 08].iso / earcd / grafica / video easel / camrexx / tm-gas.rexx < prev    next >
OS/2 REXX Batch file  |  1995-03-30  |  289b  |  16 lines
  1. /* TM-Gas by an idea of Toffoli, in CAMRexx by THOR */
  2.  
  3. MakeAlgorithm:
  4.    PLANEALGORITHM margolus hvphases
  5. return
  6.  
  7. MakePlane:
  8.    if center=opp & cw=ccw & center~=cw then
  9.          SETPLANE center
  10.    else; do
  11.       if phase then  SETPLANE cw
  12.       else           SETPLANE ccw
  13.    end
  14. return
  15.  
  16.